Voorbeeld met de gebeurtenis AddControl en de methode Add

In het volgende voorbeeld wordt de methode Add gebruikt om tijdens runtime een besturingselement aan een formulier toe te voegen en wordt de gebeurtenis AddControl gebruikt ter bevestiging dat het besturingselement werd toegevoegd.

Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een CommandButton met de naam CommandButton1.
  
  
• Een Label met de naam Label1.

Dim Mycmd as Control
Private Sub CommandButton1_Click()

    Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)
    Mycmd.Left = 18
    Mycmd.Top = 150
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "This is fun." & Mycmd.Name
    
End Sub

Private Sub UserForm_AddControl(ByVal Control As _
    MSForms.Control)
    Label1.Caption = "Control was Added."
End Sub